EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
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MODULE STRSPOS_EXTR ( ! Extract a substring by position 
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IDENT = '1-012' ! File: STRPOSEXT.B32 Edit: RKR1012 
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BEGIN 
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:* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
:® ALL RIGHTS RESERVED. 


* 

® 

we 

® 

4 ® 
i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
i® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
i OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. : 
® 

is THE INFORMATION IN THIS SOFTWARE IS | SUBJ CT TO CHANGE WITHOUT NOTICE 
® 

* 

® 

*® 

* 

® 

® 

® 


E 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 


ie DIGITAL ASSUMES NO RESPONS 


BILITY FOR THE USE OR _ RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS 


I 
H NOT SUPPLIED BY DIGITAL. 


SoOoOoCOCOOOCOOCOOOCOOOOOOOSOOOOOOOOOOOoOOO 
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9 i eee eeeeeeeeReReReReReeeeeekeeeeeeeeeeeeereeeraredeaeaeeneeeeeenerereeereeee 
030 : 
031 
tt 4 '+¢ 
O03 } FACILITY: String support Library 
0035 ABSTRACT: 
0037 ‘ This module extracts a substring according to the BASIC-PLUS-2 
0038 : syntax. It finds the substring of a main rie starting at the 
0039 : character position specified by the second input parameter and 
0040 : continues for the number of characters specified by the third 
0041 ! input parameter. This substring is copied to the destination 
: one string. 
re! Boe ENVIRONMENT: User mode, AST level or not or mixed 
46 0046 !' AUTHOR: R. Will, CREATION DATE: 21-Feb-79 
47 0047 ! 
48 0048 ! MODIFIED BY: 
49 0049 ‘ 
50 0050 ! R, Will, 28-Feb-79: VERSION 01 
51 0051 1 ! 1-001 = Original 
52 st 4 : 1-296 - Change Linkage and call to COPY routine. 15-Mar-79 Rw 
53 005 ! 1-005 - Make the string Linkages start with STR$. JBS 04-JUN-1979 
34 0054 1 ! 1-004 = Change call to STRSSCOPY, JBS 16-JUL-1979 
5 055 ! 1-005 = Change name to STR$, string cleanu RW 11-Nov-79 
56 036 ! 1- $ - Correct psect name. JBS 02-NOV-19 
57 05 ! 1- - Change to new interlock macros. JBS 06-NOV-1979 


v2 | 


ee. 

TRSPOS_EXTR -$ep-1984 01:44:4 AX-11 Bliss-32 V4.0-74 Page 2 
at re 12: o0- 138 94:2539 PTBRTL SREISTAPOSERT. B42: 1 . (1) 
: 8 1! 1- - Use string interlocks in CALL entry. RW 15-Nov-79 
: 25 0089 1! 12809 - String speedup. remove edit 5. RW. 8-Jan-1980 
; . @ 060 1 ! 1-010 = Enhance routine to potogn ee additional classes of descriptors 
ie) 0061 1! by using SSTRSGET_LEN_ADDR to extract Length and adddress 
; 6 66 0062 1! of Ist byte of source descriptor. Remove string interlocking 
; 66 0063 1! code. RKR 21-APR-81, 

;. 0064 1 ! 1-011 = Speed up code. RKR 7-0CT-1981. 

;. & 0065 1 ! 1-012 = Use STRSCOPY_R_RB for copying operation. Us 
; 666 0066 1! 

: «67 0067 1! RKR 18-NOV-7981, 

; 0068 1 !-- 

; & 0069 1 

; 0070 1 !<BLF/PAGE> 


e 
SSTRSSIGNAL_FATAL instead of S$STRSCHECK_STATUS. 
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bse 1984 01:44:44 AX-11 Bliss-32 V4.0-74 P 
22805-1984 1 tb: T3 LIBRTL.SRCJSTRPOSEXT.B52;1 nese (33 


1 
1 
! substring by position 


GLOBAL ROUTINE STRSPOS_EXTR ( 
! Pointer to destination gescriptor 
! Pointer to source descriptor 


! First character to be included 
! Last character position to include 
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FUNCTIONAL DESCRIPTION: 


This routine extracts the characters esererne at the 

character position in the source string specified 7 the 3rd 
input parameter and continuing to the character position in the 
source string specified by the 4th input parameter, and copies 
that pusetr ice to the destination string oF JSB to 

STRSCOPY R_R8) according to the syntax of the class of the 
destination string. 

If the — position is < 1, 1 is used. If the ending 
position is > length of the source string, the length of the 
source string is used. If the nore position > the ending 
position, a null eyeing is returned. The call entry point is 
implemented by JSBing to the JSB entry point. 


FORMAL PARAMETERS: 


SF PFWNWNNWIWIwwirororonor 


—OODNOAUVES WIN 0 OD NOAUE WIN $$ © OO NAME WN $0 ODNO UE WN OVD ONOAUE WN OOONOUM 


DEST_DESC.wt.dx pointer to destination string descriptor 

SRC_BESC.rt.dx pointer to source string descriptor 

START_POS.rl.r character position in src to start 
substring 

END_POS.rl.r character position in src to end 
substring 


IMPLICIT INPUTS: 


sot eter PI Pe AAAAASOMNMNMNMNMNMNMNN ES BS EEL ELE EE 
PAXAAAAAAASAOSMMIMNNMMUU ES SPREE 


09 09 Co 


 % 
co 
; 4 
ae 
Tay 
3; 3 
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NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
SS$_NORMAL Success ; 
7 STRS_ILLSTRPOS Character position reference outside of string 
7 STRS_ILLSTRSPE End pos < start pos, or length too long 
7 STRS_NEGSTRLEN Negative length supplied, 0 used Ce ree 
7 STRS$_TRU Truncation occured in copying to destination 
(Warning) 
? SIDE EFFECTS: 
7 May gional: 
7 STRS_FATINTERR Fatal internal error 
8 STRS_ILLSTRCLA it legal (or unsupported) string class 
8 STR$_INSVIRMEM Insufficient virtual memory for 


; Routine Size: 18 bytes, Routine Base: _STRSCODE + 0000 


ee Ra a et el, Seep $e aie SS Fe 2 | 

| 
TRSPOS_EXTR 1b-sd =1984 01:44:44 AX-11 Bliss-32 V4.0-74 Pa 6 | 1 
3185 14- Sep-1984 9 40:12 LIBRTL.SR ReistaPuseeT BS2s1 9° «35 | ;: 
: 13¢ ! ¢ } reallocation of dynamic string ; 
; #419 1384 1 !-- : 
: 19% 1385 1 : 
> 195 1 $ BEGIN ; 
3 138 1 3 
; #19 1388 MAP 3 
: 198 1389 SRC_DESC : REF S$STRSDESCR 1PTOR. : 
; 199 30 DEST_DESC : REF $STRSDESCRIPTOR : 
: 201 139 RETURN STRSPOS_EXTR_RB ( DEST DESC [0,0,0,0), : 
; 0¢ 1 38 SRC_BESC fo 6, 6, 632° ; 
; 2 1394 « »START_POS 3 
: 206 1332 "END POS) >” 3 
3 05 1396 (1 : 
TITLE STRSPOS_EXTR ; 
“IDENT \1-012\7 : 
EXTRN STRSCOPY_R_R8, LIBSSTOP : 
-EXTRN STRS_ NORAAL , og RS-ILLSTRSPE ; 
“EXTRN STRSTILLSTRPO : 
-PSECT _STRSCODE,NOWRT, SHR, PIC,2 ; 
01FC 00000 .ENTRY STRSPOS_EXTR, Save R2,R3,R4,R5,R6,R7,RB : 1325 : 
53 10 BC DO 00002 MOVL § @END_POS, : 1393 ; 
52 0¢ BC DO 00006 MOVL § aSTART POS, R2 : : 
50 04 7D OOOOA MOVO DEST_DESC, RO : : 
0000v 30 O000E BSBW OF SPOS “EXTR_ RB : 2 
04 00011 RET : 1396 : 


END; 'End of STRSPOS_EXTR 
| 
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TRSPOS_EXTR 16-Sep-1984 01:44:44 AX-11 Bliss-32 V4.0-74 Page 7 
313} 18-808- 1382 93:46:45 PTBRTL SREISTAPOSEST 64251 . (4) 
GLOBAL ROUTINE STRSPOS_EXTR_RB ( ! extract substring by position 

DEST_DESC, ' Pointer to destination Gescriptor 

SRC_BESC ' Pointer to source descriptor 

START Pos, ! First character to be included 

END_POS ! Last character position to include 
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) : STRSJSB_POS_EXT = 


+ 
FUNCTIONAL DESCRIPTION: 


This routine extracts the characters seereone at th 
character position in the source string specified b 
input parameter and continuing to the character pos 
source string specified by the 4th input parameter, and copies 
that substring to the destination string oy JSB to 
STRSCOPY_R_R8) according to the syntax of the class of the 
destination string. 

If the starting position is < 1, 1 is used. If the ending 
position is > length of the source string, the length of the 
source string is used. If the starting position > the ending 
position, a null string is returned. 


FORMAL PARAMETERS: 


e 
H the 3rd 
tion in the 


nee eter oP Sh ahs ae ate Neth 3 OOO 


DEST_DESC.wt.dx pointer to destination string descriptor 
SRC_BESC.rt.dx pointer to source string descriptor 
substring ; 

3 END_POS.rl.v character position in src to end 

; substring 

ri IMPLICIT INPUTS: 

: NONE 

" IMPLICIT OUTPUTS: 

4 NONE 

4 

4 

4 


COMPLETION CODES: 


MAL Success ‘ 
ILLSTRPOS Character position reference outside of string 
ILLSTRSPE End pos < start pos, or length too long 
NEGSTRLEN Negative Length supplied, 0 used : : 

U Truncation occured in copying to destination 


| 
START_POS.rl.v character position in src to start 
(Warning 


Ww nm 


Bote tena 


May signe: 
TRS_FATINTERR Fatal internal error 
STRS_ILLSTRCLA st hegat (or unsupported) string class 
STRS$_INSVIRMEM Insufficient virtual memory for 
reallocation of dynamic string 
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TRSPOS_EXTR 1b-sep-1 4 01:44:44 AX-11 Bliss-32 V4.0-74 Pa 8. 
At 12-300- 1980 04:26:43 LIBRTL. RCISTRPOSEXT .B 2;1 ad (4) | 
64 456 1! 
65 : 5 !== 
4 BEGIN 
4 LOCAL 
460 IN_LEN ! Length of source string 
461 IN-ADDR i addr of ist byte of source 
466 ACTUAL START, : MAK (1, STAR POS) 
L ' Len 0 co 
64 COPY SfATUS, ' status peturned by copy 
65 RETURN_STATUS; ! save status for this routine 
&9 map 


SRC DESC : REF SSTRSDESCRIPTOR, 


SCR 
DEST_DESC : REF S$STRSDESCRIPTOR; 
RETURN_STATUS = 1 ; ! Assume success to follow 


'¢ 
Extract length and address of ist byte of source string. 


| 
| 
| 
| 
| 
| 
| 
SSTRSGET_LEN_ADDR ( SRC_DESC, IN_LEN, IN_ADDR ) ; 
| 
| 
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ACTUAL_START = .START_POS; 
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'¢ 


MrMmrnorn 


91 ' Length is >=0 and the smaller of the 
$3 (input end_pos and src len) = start pos (must be >0) + 1 
Soe LENGTH * * ! Length = end = start + 1 
296 IF .IN_LEN LSS .END_POS 
297 THEN 
298 BEGIN 
44 RETURN_STATUS = STRS_ILLSTRPOS; ! END_POS is too Large 
01 - IN_LEN ' use srclen, remember 
4 ! error 
0 END 
04 ELSE ie 
05 -END_POS ' use specified 
06 D 
7 
8 
9 


—Oooo 
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BEGIN 
IF .START_POS LSS 1 | 
THEN 


START_POS is too small 
' use 1, remember error 


ACTUAL~START 


see tr tet eo BD AG Ae bt tat tr tet rtet PERE PAN EP AS 8 
MEW 90 ODN UE WN 0 OODNOUE WN "0 O@NOU SW —O0@ 


BEGIN 
RETURN pare # STRS_ALSTRPOS: 


ELSE ; 
- - START_POS use specified 


; | 
| 
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4 1 
S 16-Sep-1984 44:44 AX-11 Bliss-32 
1 12-808- 1382 3 40:12 PMBRTL SREISTAP 882 1 
: 1 1511 
: ¢ i \¢ IF .LENGTH LSS 0 THEN 
: 151 BEGIN 
: 324 1514 LENGTH 
: 5 1515 RETURN Status = STRS_ILLSTRSPE; ' START_POS > END_POS 
: $ 1 16 END; i null String, remember 
4 13) i error 
: 355 on 
; 0 1520 yee to destination descriptor for length as computed above. 
: 1 1521 i Input pointer is the sum - 1 of the source pointer and input 
3 ¢ 1 ¢ ; _Start position ( which must be > 0). 
: 334 1524 
$ 5 1525 COPY_STATUS = 
g 1526 STRSCOPY_R_RB ( best DESC, .LENGTH 
; 37 13 i $PLOS (.{N_ADDR, .ACTUAL_START - 1) ); 
3 39 1529 IF .COPY_STATUS NEQ SS$_NORMAL 
: 340 1530 2 THEN RETORN_STATUS = .COPY_STATUS; ' copy truncated, 
3 $0) 1531 ' return truncate 
: rk 1236 ! instead of previous 
; $7 1337 ' status 
; «4345 123¢ SSTRSSIGNAL_FATAL (RETURN_STATUS); ! signal fatal errors 
; $08 1536 2 RETURN .RETORN_STATUS; 
: 47 1537 1 END; !End of STRSPOS_EXTR_R8 
.EXTRN STRSANALYZE_SDESC_R1 
56 50 DO 00000 STRSPOS_EXTR_R8:: 
MOVL™ RO, R6 
01 DD 00003 PUSHL #1 
02 03 Al 91 00005 CMPB 3(SRC_DESC), #2 
09 1A 00009 BGTRU 1$ 
50 61 3c 00008 MOVZWL (SRC_DESC), IN_LEN 
55 04 Al dO 00005 OVL AcSRE DESCS, IR_ADDR 
0c 11 0001 BRB 2$ 
50 51 DO 00014 1$: MOVL SRC_DESC, RO 
000000006 00 16 00017 JSB STRSAWALYZE _SDESC_R1 
55 51 DO 0001D MOVL R1, 
54 26 4 bn8 9 2$: MOVL START POs. “ia START 
53 D 00 CMPL i N_LER, POS 
9 18 00026 BGEQ $~ 
6E 000000006 F pO 00028 MOVL #STRS_ nisuees, RETURN_STATUS 
3 11 0002F BRB 4$ 
50 23 DO 00031 3$: MOVL END_POS, RO 
2 D5 00034 4$: TSTL § START_POS 
gp 14 00036 BGTR 
6E 000000006 F DO its MOVL be ILLSTRPOS, RETURN_STATL 
54 01 DO 0003F MOVL #1, ACTUAL_START 
26 2 dO OO ee MOVL , R 
: C2 one 5$: SUBL2 R2, R- 
1 01 =A H 048 MOVAB 1(RO), LENGTH 
09 18 0004C BGEQ 6$ 


on 
ooo 
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N 1 
STRSPOS_EXTR 16-Sep-1984 01:44:44 AX-11 Bliss-32 V4.0-74 Page 10 
1-012 1228 08-138e 93:26:93 LE TGRTL  SREISTRPOSEXT.B 231 . 4) 

1 D4 0004 CLRL LENGTH 3 1514) 
000000006 af go a086 MOVL #STRS rept at eth ioe Met 3 : 1515) 
FF A44S F 0057 46$ MOVAB -1 (ACTUAL. STARTS CIN N_ADDR 3 1527| 
56 D0 0005C MOVL DEST_DESC Re : 
000000006 p 16 0005F JSB STRSCOPY_R_R : | 
1 Di 00065 CMPL COPY. STATUS. #1 3 1529 
9 13 44 BEQL $ ; 
6E 0 DO Q006A MOVL COPY PAP + F RETURN_STATUS : 1530 
i? 6— €E8 82088 7$ BLBS ae 3; 1535 
04 6E 0 00 ED 00070 CMPZ2V #0, #3, SRETURN. STATUS, #4 : 
09 12 00075 BNEQ 8 : 
BF DD peers PUSHL bar STATUS 3 
000000006 00 1 FB 00079 CALLS T 3 
50 8E DO 00080 8$: MOVL RETURN. STATUS, RO : 1536 
05 00083 RSB 3 1537 
; Routine Size: 132 bytes, Routine Base: _STRSCODE + 0012 
: 348 1538 1 
: 349 1539 1 END 'End of module 
3; 390 1540 1 
3; 3 1541 0 ELUDOM | 
| 

; PSECT SUMMARY 
: Name Bytes Attributes 
: _STRSCODE 150 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
3 Library Statistics 
gees ee a taal To) ie ee Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
; _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 7 0 581 00:00.7 | 

| 
; COMMAND QUALIFIERS | 
; PL ISS/CHECK SCF FELD, IMETIAL OPTIMIZE) /MOTRACE/L [S91 15S: STRPOSERT/0B.J=08J8:STRPOSERT MSRC$:STRPOSEXT/UPDATE=(ENH$: STRPOSEXT | 
3; Size: 150 code + 0 data bytes 
! 


E. 
| 


on” 
all 


18-s3p-1986 01:44:44 VAX=11 Bliss-32 V4.0-742 


2 0h 
; Lexemes/CPU-Min: in 
; "Y preg 87 pages 
; Compilation Complete 


MENT CORPORATION 
AND PROPRIETARY 


P 


DIGI 
VAX/VMS V4.0 __ CONF 


215 AH BT13A- SE 


